home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Myers-Briggs.cpt / Meyers-Briggs Personality Test / card_17060.txt < prev    next >
Text File  |  1990-12-02  |  8KB  |  380 lines
  1. -- card: 17060 from stack: in
  2. -- bmap block id: 27297
  3. -- flags: 0000
  4. -- background id: 2097
  5. -- name: Summary
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global Enum, Inum, Snum, Nnum, Tnum, Fnum, Pnum, Jnum
  9.   global StudType, StudText, StudName
  10.   put Enum into card field ESum
  11.   put Inum into card field ISum
  12.   put Snum into card field SSum
  13.   put Nnum into card field NSum
  14.   put Tnum into card field TSum
  15.   put Fnum into card field FSum
  16.   put Pnum into card field PSum
  17.   put Jnum into card field JSum
  18.   put StudName into card field 14
  19.   put "----------------------------------------" into card Field EIScale
  20.   put 20 into EITemp
  21.   subtract card field ESum from EITemp
  22.   add card field ISum to EITemp
  23.   if EITemp < 0 then put zero into EITemp
  24.   put "‚Ä¢" into char EITemp of card field EIScale
  25.   if EITemp < 20 then put "E" into card field Type
  26.   else put "I" into card field Type
  27.   put "----------------------------------------" into card Field SNScale
  28.   put 20 into SNTemp
  29.   subtract card field SSum from SNTemp
  30.   add card field NSum to SNTemp
  31.   if SNTemp < 0 then put zero into SNTemp
  32.   put "‚Ä¢" into char SNTemp of card field SNScale
  33.   if SNTemp < 20 then put card field Type & "S" into card field Type
  34.   else put card field Type & "N" into card field Type
  35.   put "----------------------------------------" into card Field TFScale
  36.   put 20 into TFTemp
  37.   subtract card field TSum from TFTemp
  38.   add card field FSum to TFTemp
  39.   if TFTemp < 0 then put zero into TFTemp
  40.   put "‚Ä¢" into char TFTemp of card field TFScale
  41.   if TFTemp < 20 then put card field Type & "T" into card field Type
  42.   else put card field Type & "F" into card field Type
  43.   put "----------------------------------------" into card Field JPScale
  44.   put 20 into JPTemp
  45.   subtract card field JSum from JPTemp
  46.   add card field PSum to JPTemp
  47.   if JPTemp < 0 then put zero into JPTemp
  48.   put "‚Ä¢" into char JPTemp of card field JPScale
  49.   if JPTemp < 20 then put card field Type & "J" into card field Type
  50.   else put card field Type & "P" into card field Type
  51. end openCard
  52.  
  53.  
  54.  
  55.  
  56.  
  57. -- part 1 (field)
  58. -- low flags: 00
  59. -- high flags: 0004
  60. -- rect: left=111 top=103 right=121 bottom=140
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 65535
  64. -- font id: 3
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Esum
  69.  
  70.  
  71. -- part 2 (field)
  72. -- low flags: 00
  73. -- high flags: 0004
  74. -- rect: left=349 top=104 right=122 bottom=378
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 65535
  78. -- font id: 3
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Isum
  83.  
  84.  
  85. -- part 3 (field)
  86. -- low flags: 00
  87. -- high flags: 0004
  88. -- rect: left=349 top=138 right=156 bottom=378
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 65535
  92. -- font id: 3
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Nsum
  97.  
  98.  
  99. -- part 4 (field)
  100. -- low flags: 00
  101. -- high flags: 0004
  102. -- rect: left=111 top=137 right=155 bottom=140
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 65535
  106. -- font id: 3
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Ssum
  111.  
  112.  
  113. -- part 5 (field)
  114. -- low flags: 00
  115. -- high flags: 0004
  116. -- rect: left=111 top=173 right=191 bottom=140
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 65535
  120. -- font id: 3
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Tsum
  125.  
  126.  
  127. -- part 6 (field)
  128. -- low flags: 00
  129. -- high flags: 0004
  130. -- rect: left=349 top=173 right=191 bottom=378
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 65535
  134. -- font id: 3
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Fsum
  139.  
  140.  
  141. -- part 7 (field)
  142. -- low flags: 00
  143. -- high flags: 0004
  144. -- rect: left=349 top=209 right=227 bottom=378
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 65535
  148. -- font id: 3
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Psum
  153.  
  154.  
  155. -- part 8 (field)
  156. -- low flags: 00
  157. -- high flags: 0004
  158. -- rect: left=111 top=209 right=227 bottom=140
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 65535
  162. -- font id: 3
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Jsum
  167.  
  168.  
  169. -- part 10 (field)
  170. -- low flags: 00
  171. -- high flags: 0000
  172. -- rect: left=144 top=106 right=122 bottom=347
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 9
  178. -- style flags: 0
  179. -- line height: 12
  180. -- part name: EIScale
  181.  
  182.  
  183. -- part 11 (field)
  184. -- low flags: 00
  185. -- high flags: 0000
  186. -- rect: left=144 top=140 right=156 bottom=347
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 0
  190. -- font id: 3
  191. -- text size: 9
  192. -- style flags: 0
  193. -- line height: 12
  194. -- part name: SNScale
  195.  
  196.  
  197. -- part 12 (field)
  198. -- low flags: 00
  199. -- high flags: 0000
  200. -- rect: left=144 top=176 right=192 bottom=347
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 0
  204. -- font id: 3
  205. -- text size: 9
  206. -- style flags: 0
  207. -- line height: 12
  208. -- part name: TFScale
  209.  
  210.  
  211. -- part 13 (field)
  212. -- low flags: 00
  213. -- high flags: 0000
  214. -- rect: left=143 top=212 right=228 bottom=346
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 0
  218. -- font id: 3
  219. -- text size: 9
  220. -- style flags: 0
  221. -- line height: 12
  222. -- part name: JPScale
  223.  
  224.  
  225. -- part 14 (field)
  226. -- low flags: 00
  227. -- high flags: 0004
  228. -- rect: left=392 top=249 right=273 bottom=443
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 20
  233. -- text size: 18
  234. -- style flags: 0
  235. -- line height: 24
  236. -- part name: Type
  237.  
  238.  
  239. -- part 15 (button)
  240. -- low flags: 00
  241. -- high flags: 8000
  242. -- rect: left=200 top=282 right=338 bottom=263
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 1 / 1
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: Explain Type
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   push card
  254.   go to card card field Type
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 16 (button)
  260. -- low flags: 00
  261. -- high flags: 8000
  262. -- rect: left=125 top=281 right=338 bottom=186
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 20098 / 20098
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: Quit
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   go to stack "Home"
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 18 (button)
  279. -- low flags: 00
  280. -- high flags: 8000
  281. -- rect: left=272 top=283 right=340 bottom=335
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 1007 / 1007
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: Print
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   open printing with dialog
  293.   print this card
  294.   push card
  295.   go to card card field Type
  296.   print this card
  297.   pop card
  298.   close printing
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 19 (field)
  304. -- low flags: 00
  305. -- high flags: 0004
  306. -- rect: left=24 top=248 right=274 bottom=226
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 20
  311. -- text size: 18
  312. -- style flags: 0
  313. -- line height: 24
  314. -- part name: 
  315.  
  316.  
  317. -- part contents for card part 10
  318. ----- text -----
  319. ---------------------------•------------
  320.  
  321. -- part contents for card part 11
  322. ----- text -----
  323. ----------------------------•-----------
  324.  
  325. -- part contents for card part 12
  326. ----- text -----
  327. ------------•---------------------------
  328.  
  329. -- part contents for card part 13
  330. ----- text -----
  331. -------------------•--------------------
  332.  
  333. -- part contents for card part 14
  334. ----- text -----
  335. INTP
  336.  
  337. -- part contents for card part 9
  338. ----- text -----
  339. 24
  340.  
  341. -- part contents for card part 17
  342. ----- text -----
  343. Click here to see an explanation of this type.
  344.  
  345.  
  346. -- part contents for card part 1
  347. ----- text -----
  348. 4
  349.  
  350. -- part contents for card part 2
  351. ----- text -----
  352. 12
  353.  
  354. -- part contents for card part 4
  355. ----- text -----
  356. 3
  357.  
  358. -- part contents for card part 3
  359. ----- text -----
  360. 12
  361.  
  362. -- part contents for card part 5
  363. ----- text -----
  364. 13
  365.  
  366. -- part contents for card part 6
  367. ----- text -----
  368. 6
  369.  
  370. -- part contents for card part 7
  371. ----- text -----
  372. 8
  373.  
  374. -- part contents for card part 8
  375. ----- text -----
  376. 8
  377.  
  378. -- part contents for card part 19
  379. ----- text -----
  380. Bill Garrett